Introducción
Herramientas de desarrollo
Paquetes de R
library(sf)
library(dplyr)
library(leaflet)
library(ggplot2)
library(plotly)
library(DT)
library(sf)
library(dplyr)
library(leaflet)
library(ggplot2)
library(plotly)
library(DT)
provincias <- # objeto sf de datos vectoriales con geometrías de multipolígonos
st_read(
"C:/Users/gf0604-1/datos geoespaciales/clase 08-06-22/provincias.geojson", # archivo de datos de entrada
quiet = TRUE
) %>%
st_transform(4326) # transformación al sistema de coordenadas WGS84
library(sf)
library(dplyr)
library(leaflet)
library(ggplot2)
library(plotly)
library(DT)
felinos <-
st_read(
"C:/Users/gf0604-1/datos geoespaciales/clase 08-06-22/felinos.csv",
options = c(
"X_POSSIBLE_NAMES=decimalLongitude", # columna de longitud decimal
"Y_POSSIBLE_NAMES=decimalLatitude" # columna de latitud decimal
),
quiet = TRUE
)
st_crs(felinos)<-4326
Mapa
leaflet() %>%
addTiles() %>% # capa de base OSM
# addPolygons(
# data = provincias,
# color = "black",
# fillColor = "transparent",
# stroke = TRUE,
# weight = 1.0,
# ) %>%
addCircleMarkers( # capa de registros de presencia (puntos)
data = felinos,
stroke = F,
radius = 4,
fillColor = "blue",
fillOpacity = 1
)